home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog Special Freeware 23
/
FreelogHS23.iso
/
Indispensables
/
Bureautique
/
EuroCalculette
/
euro110.exe
/
{app}
/
TiCalc.exe
/
0
/
RCDATA
/
TFCALC
/
TFCALC.txt
< prev
Wrap
Text File
|
2002-05-06
|
10KB
|
472 lines
object FCalc: TFCalc
Left = 437
Top = 191
BorderIcons = []
BorderStyle = bsNone
Caption = 'Ti M�mo - CALCULETTE'
ClientHeight = 350
ClientWidth = 250
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
KeyPreview = True
OldCreateOrder = True
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
PixelsPerInch = 96
TextHeight = 14
object ImgFond: TImage
Left = 0
Top = 0
Width = 250
Height = 350
Align = alClient
AutoSize = True
Picture.Data = {<image000.bmp>}
OnMouseDown = ActionDeplacerFenetre
end
object BevelAide: TBevel
Left = 63
Top = 18
Width = 64
Height = 25
Cursor = crHandPoint
Style = bsRaised
end
object BevelFermer: TBevel
Left = 131
Top = 18
Width = 64
Height = 25
Cursor = crHandPoint
Style = bsRaised
end
object BevelFrancs: TBevel
Left = 15
Top = 114
Width = 32
Height = 36
Cursor = crHandPoint
Shape = bsFrame
end
object BevelEuros: TBevel
Left = 15
Top = 70
Width = 32
Height = 35
Cursor = crHandPoint
Shape = bsFrame
end
object BevelTraitInf: TBevel
Left = 9
Top = 47
Width = 232
Height = 7
Shape = bsBottomLine
end
object BevelOperations: TBevel
Left = 149
Top = 209
Width = 85
Height = 122
Shape = bsFrame
end
object BevelEffacements: TBevel
Left = 149
Top = 165
Width = 85
Height = 46
Shape = bsFrame
end
object BevelChiffres: TBevel
Left = 16
Top = 165
Width = 127
Height = 166
Shape = bsFrame
end
object Img09: TImage
Left = 104
Top = 174
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image001.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object ImgEG: TImage
Left = 157
Top = 293
Width = 70
Height = 32
AutoSize = True
Picture.Data = {<image002.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixOperateur
end
object Img02: TImage
Left = 64
Top = 252
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image003.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object Img05: TImage
Left = 64
Top = 213
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image004.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object Img08: TImage
Left = 64
Top = 174
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image005.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object ImgVI: TImage
Left = 64
Top = 292
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image006.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixVirgule
end
object Img04: TImage
Left = 24
Top = 213
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image007.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object Img07: TImage
Left = 24
Top = 174
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image008.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object Img00: TImage
Left = 24
Top = 292
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image009.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object ImgAC: TImage
Left = 194
Top = 173
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image010.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixAC
end
object Img03: TImage
Left = 104
Top = 252
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image011.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object Img01: TImage
Left = 24
Top = 252
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image012.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object Img06: TImage
Left = 104
Top = 213
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image013.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object ImgEuros: TImage
Left = 17
Top = 74
Width = 28
Height = 28
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image014.bmp>}
Transparent = True
OnMouseDown = Enfoncer
OnMouseUp = MonaieMouseUp
end
object ImgFrancs: TImage
Left = 17
Top = 119
Width = 28
Height = 28
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image015.bmp>}
Transparent = True
OnMouseDown = Enfoncer
OnMouseUp = MonaieMouseUp
end
object ImgDE: TImage
Left = 157
Top = 173
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image016.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixChiffre
end
object ImgMU: TImage
Left = 157
Top = 217
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image017.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixOperateur
end
object ImgReduire: TImage
Left = 219
Top = 12
Width = 20
Height = 20
Cursor = crHandPoint
Hint = 'Fermer'
AutoSize = True
Picture.Data = {<image018.bmp>}
Transparent = True
OnMouseDown = Enfoncer
OnMouseUp = ReduireMouseUp
end
object ImgDI: TImage
Left = 194
Top = 217
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image019.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixOperateur
end
object ImgPL: TImage
Left = 157
Top = 255
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image020.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixOperateur
end
object ImgMO: TImage
Left = 194
Top = 255
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image021.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixOperateur
end
object ImgPM: TImage
Left = 104
Top = 292
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image022.bmp>}
OnMouseDown = Enfoncer
OnMouseUp = ChoixSigne
end
object ImgLogo: TImage
Left = 12
Top = 17
Width = 24
Height = 24
Cursor = crHandPoint
Hint = 'A propos de Ti M�mo'
AutoSize = True
Picture.Data = {<image023.bmp>}
Transparent = True
OnMouseDown = Enfoncer
OnMouseUp = LogoMouseUp
end
object ImgFrancsBrillant: TImage
Left = 17
Top = 119
Width = 28
Height = 28
Cursor = crHandPoint
Hint = 'Saisie en Francs'
AutoSize = True
ParentShowHint = False
Picture.Data = {<image024.bmp>}
ShowHint = True
Transparent = True
OnMouseDown = Enfoncer
OnMouseUp = MonaieMouseUp
end
object ImgEurosBrillant: TImage
Left = 17
Top = 74
Width = 28
Height = 28
Cursor = crHandPoint
Hint = 'Saisie en Euros'
AutoSize = True
ParentShowHint = False
Picture.Data = {<image025.bmp>}
ShowHint = True
Transparent = True
OnMouseDown = Enfoncer
OnMouseUp = MonaieMouseUp
end
object Bevel1: TBevel
Left = 52
Top = 70
Width = 183
Height = 80
Shape = bsFrame
end
object LabelAide: TLabel
Left = 63
Top = 19
Width = 64
Height = 24
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'AIDE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Layout = tlCenter
OnMouseUp = AideMouseUp
end
object LabelFermer: TLabel
Left = 131
Top = 19
Width = 64
Height = 24
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'FERMER'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Layout = tlCenter
OnMouseUp = FermerMouseUp
end
object PanelFrancs: TPanel
Left = 60
Top = 114
Width = 167
Height = 28
Alignment = taRightJustify
BevelOuter = bvLowered
Caption = '- 999 999 999,99999 '
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
PopupMenu = PopupCopierFrancs
TabOrder = 0
end
object PanelEuros: TPanel
Left = 60
Top = 79
Width = 167
Height = 28
Alignment = taRightJustify
BevelOuter = bvLowered
Caption = '1 234,45 '
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
PopupMenu = PopupCopierEuros
TabOrder = 1
end
object EditCopier: TEdit
Left = 206
Top = 62
Width = 121
Height = 22
TabOrder = 2
Text = 'EditCopier'
Visible = False
end
object PopupCopierFrancs: TPopupMenu
OnPopup = PopupCopierFrancsPopup
Left = 70
Top = 152
object Copier1: TMenuItem
Caption = 'Copier'
end
end
object PopupCopierEuros: TPopupMenu
OnPopup = PopupCopierEurosPopup
Left = 174
Top = 154
object MenuItem1: TMenuItem
Caption = 'Copier'
end
end
end